home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / mm_1_2.lha / MM / Rexx / MM_SendFile.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-30  |  645b  |  31 lines
  1. /*
  2. ** $VER:  MM_SendFile v0.1 (31-Ago-94)
  3. **
  4. ** Written by Pino Aliberti
  5. **
  6. ** usage:  #AREASMENU  "Send File" "rx MM:Rexx/MM_SendFile" ""
  7. */
  8.  
  9. ADDRESS 'MAILMANAGER'
  10.  
  11. MM_StringReq '"Send File To Node ..."' 'node'
  12.  
  13. if RC=0 THEN DO
  14.     MM_FileReq 'file'
  15.     if RC=0 THEN DO
  16.         text = 'Send  b'file'n  to Node  b'node'n  as:'
  17.         gadgets = "_Normal|_Direct|_Crash|_Hold|*_Abort"
  18.         MM_Requester '"Send File"' 'text' 'gadgets'
  19.         if RC=1 THEN
  20.             MM_AddToFlow file node 'NORMAL'
  21.         else if RC=2 THEN
  22.             MM_AddToFlow file node 'DIRECT'
  23.         else if RC=3 THEN
  24.             MM_AddToFlow file node 'CRASH'
  25.         else if RC=4 THEN
  26.             MM_AddToFlow file node 'HOLD'
  27.         END
  28.     END
  29.  
  30. EXIT
  31.